* admin/unidata/unidata-gen.el (unidata-gen-files):

Fix deletion of existing output files after 2013-10-30 changes.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index bc63e8c1c789d3f69a5496d0781a5219863dbe08..4b4134a9f00f487c410e63e777d9e688f3f84fb2 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-09  Glenn Morris  <rgm@gnu.org>
+
+       * unidata/unidata-gen.el (unidata-gen-files):
+       Fix deletion of existing output files after 2013-10-30 changes.
+
 2013-11-07  Glenn Morris  <rgm@gnu.org>
 
        * unidata/unidata-gen.el (unidata-gen-files):

diff --git a/admin/unidata/unidata-gen.el b/admin/unidata/unidata-gen.el
index 3a05dbd4ca95e2408f2e36fc1105d1d883e8fa52..2e2eebe2c907d8870d32dd5c3c03be4f45f8918b 100644 (file)
--- a/admin/unidata/unidata-gen.el
+++ b/admin/unidata/unidata-gen.el
@@ -1196,7 +1196,7 @@ is the character itself.")))
        (unidata-dir data-dir))
     (dolist (elt unidata-prop-alist)
       (let* ((prop (car elt))
-            (file (unidata-prop-file prop)))
+            (file (expand-file-name (unidata-prop-file prop) dest-dir)))
        (if (file-exists-p file)
            (delete-file file))))
     (unidata-setup-list unidata-text-file)